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Summary 

This  report  describes  the  instruction  set  and  general  firmware 
architecture  of  the  Flex  computer  as  implemented  on  the  ICL  Perq 
workstation. 
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Introduction 


This  report  describes  the  firmware  architecture  of  the  Flex  computing  ^ 
system  as  implemented  on  the  ICL  Perq.  This  implementation  is  very 
similar  to  that  described  in  RSRE  Report  81689,  (  Flex  Firmware  by 
Currie.  Edwards  and  Foster)  generally  referred  to  as  the  Logics 
implementation.  This  is  rather  a  misnomer,  since  although  Logics  built 
the  hardware  (to  an  RSRE  design)  on  which  it  was  implemented.  Logics 
had  nothing  to  do  with  the  micro-coding  or  software  construction  of 
the  Flex  architecture. 

The  differences  between  the  Perq  and  Logics  implementation  arise 
mainly  from  the  properties  of  the  underlying  hardware.  In  the  Logics 
Flex,  for  example,  each  byte  in  main-store  was  in  fact  nine  bits  long 
rather  than  eights  the  extra  bits  (the  tag  bits)  were  used  to 
distinguish  between  pointers  and  non-pointers  ie  between  capabilities 
and  scalar  data.  On  Perq.  however,  there  are  no  bits  to  spare  like  this. 

In  order  to  distinguish  between  pointers  and  non-pointers  in  Perq, it 
was  necessary  to  steal  a  bit  from  each  32-bit  word  to  act  as  a  tag  bit. 

One  effect  of  this  is  that  integer  arithmetic  on  PerqFIex  is  31 -bits 
long.  Another  more  serious  one  from  the  point  of  view  of  compatibility 
with  LogicaFlex  is  that  multiple  characters  and  bits  can  only  reside  in 
special  blocks  so  that  four  characters  packed  into  one  word,  for 
example,  cannot  be  confused  with  a  capability.  This  means  that  the 
uniform  scheme,  in  the  LogicaFlex,  of  being  able  to  load  any  number  of 
words. characters  or  bits  into  the  register  has  had  to  be  modified  so 
that  although  one  can  still  load  any  number  of  words  into  the  register, 
only  single  characters  or  (<its  can  be  loaded  in  PerqFIex,  This,  in  turn, 
means  that  extra  instructions  have  been  introduced  into  PerqFIex  to 
allow  one  to  manipulate  characters  and  booleans  in  other  ways. 

Other  differences  arise  from  the  treatment  of  peripheral  devices  on 
Perq.  For  example.  Perq  has  a  bit-mapped  display  with  some  specialised 
hardware  for  moving  about  rectangles  of  bits.  Other  external  devices 
includes  Winchester  and  floppy  discs  and  GPIB,  RS232  and  Ethernet 
interfaces,  all  of  which  requires  some  specialised  instructions. 

In  spite  of  these  differences,  program  transfer  between  the  Flex 
implementations  is  relatively  painless.  Most  of  the  detailed 
differences  in  programs  are  coped  with  by  the  compilers.  Other 
differences  are  minimised  by  the  fact  that  most  of  tlie  user’s 
interfaces  (eg  to  filestore)  are  the  same  and  that  Flex  encourages  a 
highly  modular  approach  to  program  design. 
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1  Data  in  PerqFlex 


Data  in  Flex  can  be  handled  in  words,  characters  or  booleans.  Words  are 
either  pointers  or  non-pointers  with  distinct  representations  so  that 
arithmetic  cannot  be  performed  on  pointers  and  non-pointers  cannot  be 
used  in  indirect  addressing  operations.  The  pointers  are  used  to 
represent  capabilities  to  data  or  actions  in  main-store. 

In  blocks  of  main-store  which  can  contain  pointers,  the  least 
significant  bit  of  each  32-bit  word  is  used  to  distinguish  pointers  from 
non-pointers  I  a  pointer  has  this  tag  bit  set  while  a  non-pointer  has  it 
clear. 

1.1  Non-pointers 

The  various  instructions  which  operate  on  non-pointers  ;ise  the 
following  representations: 

Bool  -  1  bit. 

Char  -  8  bits. 

Packed  Chars  and  Bools  can  only  appear  in  blocks  of  type  3 
and  1 1  respectively  (see  1.2. 1 ).  When  a  single  Char  or  Bool 
is  pushed  or  stored  in  another  type  of  block,  it  is  stored  as 
an  Int. 

Int  -  1  32-bit  word  with  unset  Is  bit. 

^bit  2’s  complement  jtag  bit<^ 

Longint  -  2  Ints,  1st  int  is  most  significant  and  second  is 
positive,  giving  61  bits  2’s  complement, 
wordl  :|6|  36  bit  unsigned  Itag  bit*0 
words :  3  bit  2’s  complement  tag  bit>6 


ShortReal  -  1  word  with  unset  Is  bit.  Biased  2’s  exponent  in  next  7. 

2V-bit  mantissa  with  sign  equal  to  the  complement  of  the 

ms  bit. _ 

124  bit  mantissal?  bit  biased  exponent  Itag  bit«6 


Real 


-  2  words  with  unset  Is  bits.  The  ms  half  of  Word  6  is  the 
ms  16  bits  of  the  mantissa  with  sign  equal  to  the  comple¬ 
ment  of  the  ms  bit.  Next  V  bits  are  zero  with  biased  2 ’s 
exponent  in  next  11.  Next  31  bits  of  mantissa  in  ms  end 
of  Word  1. 


Word  1 1 
Word  6 1 


1.2  Pointers 

A  pointer  is  a  32-bit  word  with  its  least  significant  bit  set.  Its 
complete  format  is: 


31  bit  mantissa  extension  (Is  part) 

tag  bit^B 

16  bit  mantissa|6006  11  bit  biassed  exponent 

tag  bit>6 

L[2  bit  gcIBjit  bit  typejS|3  bit  spare|l9  bit  block  addressjtag  bit=l 

where  the  the  block  address  is  expressed  in  32-bit  word  units  and  the 
type  field  gives  the  type  of  block  pointed  at.  Each  block  has  an 
overhead  word  which  gives  the  size  of  the  block  and  repeats  its  type. 
The  gc  bits  both  in  pointers  and  overhead  words  are  used  for  garbage 
collection  purposes.  Existing  pointers  can  be  copied  freely  but  one 
cannot  synthesize  a  pointer  to  an  existing  block,  and  the  contents  of  a 
block  can  only  be  accessed  according  to  rules  defined  by  both  the 
pointer  and  the  type  of  the  block.  Even  given  maximum  access,  a  pointer 
only  allows  access  within  the  limits  of  its  block,  not  including  the 
overhead  word.  The  access  rules  are  modified  if  the  pointer  is  locked 
(given  by  the  L-bit  •  1 ).  The  effect  of  locking  for  blocks  of  type  other 
than  5  or  6  (see  1.2.1 )  is  to  make  the  blocks  read-only.  A  pointer  with 
its  S  bit  >  1  is  a  shaky  pointer,  otherwise  it  is  a  firm  pointer.  This 
means  that  so  long  as  a  block  is  pointed  at  by  a  firm  pointer  then  any 
shaky  pointers  remain  valid.  However,  if  there  are  no  firm  pointers  to  a 
block  then  any  shaky  pointers  to  it  will  be  replaced  by  the  non-pointer 
6  in  garbage  collection  and  the  block  will  vanish.  This  mechanism  is 
largely  intended  to  provide  easy  aliasing  between  disc  and  mainstore; 
it  is  also  used  internally  in  the  procedure  call  mechanism. 


1.2.1  Blocks 

Each  block  starts  on  a  32-bit  word  boundary  with  one  overhead  wordt 

3  bit  gc|l|i»  bit  type|»»  bit  spare  |19  bit  block  size|tag  bit»l 

The  gc  bits  are  used  for  garbage  collection  purposes.  The  size  is 
measured  in  32-bit  words,  with  the  overhead  word  included. 
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There  are  in  fact  seven  different  types  of  block  > 

Type  1 

This  is  a  work-space  block  i.e.  the  locals  of  some  call  of  a  procedure, 
including  pointers.  The  first  four  words  of  a  work-space  block  are 
completely  inaccessible  to  everybody  but  the  micro-cocte.  They  contain 
link  information  for  exiting  from  the  procedure  or  for  re-instating  this 
work-space  as  the  current  locals.  The  instructions  which  access  within 
a  work-space  block  (e.g.  opcodes  8  or  3)  will  automatically  compensate 
for  these  extra  invisible  words  so  that,  for  example,  a  zero 
displacement  (a-field)  will  in  fact  give  the  5-th  word  of  the  block. 

Type  2 

This  is  a  codeblock  which  points  to  the  instructions  (a  type  3  block) 
and  the  constants  (a  type  V  block)  of  some  procedure.  It  also  contains  a 
word  giving  the  size  of  the  workspace  required  to  run  this  procedure. 
In  addition,  another  word  maintains  a  shaky  chain  of  workspaces  which 
may  be  used  when  the  procedure  is  called  in  appropriate  cases 

Types 

This  block  contains  no  pointers,  each  word  in  it  being  a  full  32  bit 
quantity.  Conventionally,  it  will  contain  packed  8-bit  characters (  this 
is  supported  by  the  dereference  and  packing  instructions. 

Type  V 

This  is  a  normal  data  block  which  can  contain  pointers. 

Type  5 

This  is  a  closure  block,  containing  pointers  to  a  codeblock  and  a 
non-locals  block.  A  pointer  to  a  closure  is  a  procedure.  The  only 
operations  allowed  on  procedures  are  calls  i.e.  the  contents  of  the 
closure  are  hidden.  When  a  locked  procedure  is  called,  the  resulting 
call  will  be  run  in  privileged  state. 

Type  6 

This  is  a  keyed  block  whose  access  is  controlled  by  knowledge  of  first 
word  in  block.  Access  to  a  keyed  block  via  an  unlocked  pointer  makes  it 
identical  to  a  normal  data  block  i  access  via  a  locked  pointer  is  barred. 
A  locked  pointer  to  a  keyed  block  may  be  unlocked  if  one  knows  the 
contents  of  the  first  word  of  the  block  using  instruction  168.  Locked 
pointers  to  other  types  of  blocks  cannot  be  unlocked. 

Type  11 

This  block  contains  no  pointers.  It  is  conventionally  used  to  contain 
packed  booleans.  The  bit-map  for  the  screen  is  contained  in  such  a 
block. 
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1.2.2  References,  vectors  and  arrays 


Since  pointers  only  refer  to  complete  blocks,  several  of  the 
instructions  make  use  of  references  i.e.  (pointer,  non-pointer)  pairs 
with  the  interpretation  that  the  first  word  gives  a  block  and  the  second 
some  kind  of  a  displacement  within  it.  subject  to  the  usual  access 
constraints  of  the  pointer.  The  kind  of  displacement  is  defined  by  the 
type  of  block  pointed  at  ie  > 

types  1.2,V,6  -  word  displacement. 

type  3  -  char  displacement  from  logical  start  of  block, 

type  11  -  bit  displacement  from  logical  start  of  block. 

The  contents  of  type  3  blocks  cannot  be  examined  and  so  cannot  form 
part  of  a  reference. 

A  vector  is  defined  as  a  triple  consisting  of  (non-pointer,  reference) 
where  the  first  word  is  the  upper  bound  (implicit  lower  bound  >  1). 
This  upper  bound  expresses  the  number  of  elements  in  the  vector ;  the 
element  size  will  be  defined  by  the  instruction  using  the  vector  and  the 
type  of  its  reference. 

An  N-dimensional  array  is  a  tuple  of  words  consisting  of  N  non-pointer 
triples  (lower  bound,  stride,  upper  bound)  followed  by  a  reference. 


2  Program  In  PerqFlex 

While  running  program.  Flex  is  always  obeying  the  code  of  some 
procedure,  the  current  procedure. 

2. 1  The  local  stack 

The  locals  of  this  procedure, the  current  locals,  are  contained  in  a 
work-space  block  (type  1):  these  locals  are  directly  accessible  using 
instructions  such  as  load_l_word_local  (op  code  0).  Two  other  areas 
are  similarly  accessible  -  the  non-locals  (eg  op  code  1 )  and  the 
constants  (op  code  2)  of  the  current  procedure.  The  non-locals  (if  any) 
are  in  one  of  the  blocks  (type  *•■)  pointed  at  in  the  closure  which  forms 
the  current  procedure  while  the  other  gives  a  type  2  block  containing 
pointers  to  both  the  constants  and  code  of  the  procedure. 

The  locals  operate  as  a  stack  entirely  contained  within  the  current 
work-space  block.  The  next  free  word  on  this  stack  is  the  stack-front 
(sf).  (Clearly  sf  is  always  constrained  to  lie  within  the  limits  of  the 
current  work-space;  any  attempt  (either  explicitly  or  implicitly)  to  go 
outside  its  bounds  will  result  in  an  error. 

2. 1  The  U  register  and  tos 

There  is  only  one  general  purpose  register  in  PerqFlex  -  the  universal 
register  U.  U  may  hold: 
any  number  of  words 
a  single  character  or  a  single  boolean 
an  illegal  value  (ie  an  Exception) 
or  void  (ie  the  unique  value  requiring  no  bits) 

The  instructions  which  load  U  (op  codes  0-37  etc)  push  the  old  value 
in  U  (provided  it  is  not  an  exception)  onto  the  local  stack  (updating  sf 
in  multiples  of  words)  before  loading  the  new  value. 

Most  of  the  arithmetic  instructions  use  a  value  on  top  of  the  stack 
(tos)  together  with  the  value  on  U  to  produce  results.  The  tos  value 
is  removed  and  sf  reduced  by  the  operation  of  the  instruction.  The 
number  of  words  in  tos  depends  on  the  particular  instruction,  and 
also  sometimes  on  the  value  in  U  (eg  equality,  op  code  IIV).  Thus 
the  int_nHJltiply  instruction  (op  code  100)  multiplies  a  1-non-ptr  U 
by  a  1-non-ptr  tos,  giving  the  answer  as  a  1-non-ptr,  reducing  sf  by 
1  word.  The  real_multiply  instruction  works  similarly  removing  2 
words  from  the  stack  while  the  equality  instruction  removes  the 
number  of  words  required  to  hold  the  value  in  U. 
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2.3  Program  control 


The  flow  of  control  instructions  only  allow  jumps  within  the  current 
procedure  code  and  even  then  only  in  a  restricted  form  in  that  usually 
only  forward  jumps  are  allowed  to  carry  a  non-void  U.  The  only  ways  to 
escape  from  the  current  procedure  code  is  to  call  another  procedure, 
exit  from  the  current  one,  fail,  or  obey  the  goto  instruction  (op  code 
71 ).  The  address  of  the  instruction  currently  being  obeyed  is  held  in 
the  program  control  register  pc  s  clearly  pc  is  constrained  to  be  within 
the  limits  of  instructions  within  the  current  codeblock. 

2.it-  Privilege 

Some  of  the  instructions  are  only  allowed  if  the  procedure  code  is 
being  run  in  privileged  state.  These  instructions  are  mainly  concerned 
with  peripheral  transfers.  This  state  is  a  property  of  the  procedure 
itself.  If  one  calls  a  locked  procedure  then  its  code  will  run  in 
privileged  state  otherwise  in  unprivileged  state.  Thus,  if  an 
unprivileged  procedure  is  called  from  within  a  privileged  one,  on  exit 
from  the  inner  call  the  outer  will  remain  privileged  and  similarly  in  the 
reverse  sense.  Clearly  the  operation  which  locks  a  procedure  can  only 
be  obeyed  in  privileged  state. 
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3  Procedures 


A  procedure  is  a  pointer  to  a  closure  block  of  size  3  words  s 


non- locals 

instructions 

Yype  W 

Type  3 

proc 


non- Iocs 
code  blk. 

Type  5 

code  / 
const s 
ws-chain 
ws-size 
type  2 


constants! 

Type  W 

— »«haky  chain  of  exited  workspaces 
size  of  workspace  required  for  proc 
size  »  5  words. 


The  current  work-space  block  isi 


hidde 
part 
of  bloc 


\ 


local  1 
local  6 


sf  somewhere  in  this  area 


'Closure  of  current  proc  as  above 
(Only  set  by  imer  call. 


own  proc  I 
sf  dump 
pc  dump 
last  ws- 

Type  1  feize  given  by  ws-size  in  current  codeblock. 


Workspace  in  which  current  proc  was  called 


The  workspace  chain  given  by  the  last  ws  chain  in  a  work-space  is 
terminated  by  a  zero  word,  in  the  first  work-space  of  a  process. 


3. 1  Procedure  calls 

The  action  of  a  procedure  call  (op  codes  6<i--67)  is  as  follows.  The 
current  values  of  pc  and  sf  relative  to  their  respective  blocks  are 
stored  in  the  second  and  third  words  of  the  current  workspace.  The 
privilege  state  and  the  TD  state  (see  V)  also  stored  along  with  sf.  The 
codeblock  derived  from  the  procedure  to  be  called  is  now  examined.  It 
contains,  in  its  first  two  words,  information  to  produce  a  work-space 
block  for  the  procedure  being  called.  If  the  second  word  (ws-chain  in 
diagram)  is  a  pointer,  then  we  know  (see  exit  3.2)  that  this  is  shaky 
pointer  to  a  chain  of  work-spaces  suitable  for  running  this  procedure 
and  hence  we  have  the  desired  work-space  by  removing  it  from  this 
chain.  If  ws-chain  is  not  a  pointer,  then  a  new  work-space  block  is 
generated  given  its  size  in  the  first  word  in  the  standard  manner.  This 


le 


may  involve  one  in  a  garbage  collection  so  the  procedure  call 
instructions  are  arranged  so  that  they  can  be  restarted  after  such  a 
garbage  collection. 

Having  produced  a  work-space  suitable  for  the  new  procedure,  a  pointer 
to  the  current  work-space  is  put  in  its  first  word,  and  the  new 
procedure  in  its  fourth.  This  new  work-space  now  becomes  current,  sf 
is  set  to  its  fifth  word  (word  0  of  locals),  pc  to  the  first  byte  of  the 
instruction  block  pointed  to  by  the  fourth  word  of  the  new  codeblock, 
and  the  internal  registers  set  up  so  that  the  current  locals,  non- locals 
and  constants  come  from  the  new  locals,  non-local  block  and  constant 
respectively.  If  the  procedure  being  called  is  locked,  the  code  will  run 
in  privileged  state;  otherwise  it  is  unprivileged. 

During  all  of  this,  the  contents  of  U  remain  unchanged  so  that 
parameters  to  a  procedure  are  normally  passed  in  U. 

3.2  Exit  from  procedures 

Exit  from  a  procedure  (op  codes  68,  69)  is  essentially  the  reverse 
process:  if  a  pointer  to  the  current  work-space  has  not  been  loaded 
while  obeying  the  current  procedure  (ie  instructions  S':-  or  168  have  not 
been  encountered)  then  the  current  work-space  is  put  on  the  ws-chain 
in  the  current  codeblock.  The  previous  work-space  (in  1st  word  of 
current  work-space)  is  now  made  current,  and  sf,  pc  and  the  two  states 
are  reset  from  their  dump  positions  in  this  work-space.  The  locals  are 
made  current  in  this  work-space  and  non- locals  and  constants  are  reset 
from  the  own-proc  dumped  within  it. 

During  exit,  the  contents  of  U  remain  unchanged  so  that  results  of 
procedures  are  normally  passed  in  U. 

3.3  Demand  loading 

The  description  of  procedure  call  given  above  is  somewhat  simplified 
in  that  the  codeblock  or  the  entire  procedure  can  reside  on  filestore. 
In  both  cases,  the  appropriate  pointers  will  be  filestore  capabilities 
represented  by  pointers  to  keyed  blocks  (type  6).  The  firmware  will 
interpolate  a  call  of  a  system  procedure,  Ioad_proc,  in  the  operation  of 
a  call  instruction  whose  closure  is,  or  contains,  such  a  keyed  block. 
Load_proc  is  rather  similar  to  the  scavenge  procedure,  in  that  it  can 
accept  any  parameter.  It  can  access  the  keyed  blocks  as  non-locals,  and 
it  uses  information  from  the  keyed  blocks  to  load  the  actual  code  etc, 
from  backing  store  into  mainstore.  Load_proc  will  then  exit  to  repeat 
the  original  call  instruction  that  provoked  it,  ensuring  that  this  kind  of 
closure  is  only  fully  loaded  when  it  is  actually  called.  The  alias  fields 
of  the  filestore  capabilities  will  ensure  that  the  discs  are  not 
accessed  if  the  procedure  or  codeblock  is  already  in  mainstore. 
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An  exception  in  Flex  occurs  when  some  attempt  is  made  to  break  the 
rules  of  the  Flex  instruction  set.  All  exceptions  have  a  characteristic 
word-pair  associated  with  them  -  those  raised  directly  by  the  micro 
code  consist  of  zero  followed  by  a  small  integer. 

The  treatment  of  an  exception  depends  on  whether  it  was  raised  in  one 
of  two  states  either  T-state  or  D-state.  This  state  can  be  set  by 
instructions  (op  code  S**-  and  95)  and  is  carried  into  inner  procedure 
calls.  On  exit  from  a  procedure,  the  T  or  D  state  is  set  to  what  it  was 
on  entry. 


W.  1  Errors  and  failures 

Exceptions  arise  in  two  slightly  different  ways,  called,  for  want  of 
better  words,  errors  and  failures. 

An  error  occurs  where  any  attempt  to  continue  with  the  instruction 
would  compromise  the  access  rules  for  blocks  and  pointers.  Roughly 
speaking, one  could  say  that  they  are  the  compiler’s  fault.  They  include 
attempts  to  access  outside  the  limits  of  a  block  or  applying  the  wrong 
type  of  operands  to  instructions. 

A  failure  tends  to  be  more  data-dependent  and  more  likely  to  be  the 
program  writer's  fault.  Typical  failures  are  arithmetic  overflow  and 
indices  out  of  bounds.  Also  included  are  the  explicit  exceptions  raised 
by  the  fail  and  exit_fail  instructions  (op  codes  173,  69)  where  the 
characteristic  is  given  by  the  operand  U. 

The  only  difference  between  failures  and  errors  occur  when  the 
exception  is  raised  in  T-state.  In  this  case,  a  failure  produces  an 
illegal  value  in  U  which  has  an  associated  word-pair  identical  to  the 
characteristic  of  the  exception.  Any  attempt  to  use  an  illegal  value  in 
instructions  other  than  those  explicitly  designed  to  deal  with  them  (op 
codes  92,  165  etc)  will  result  in  an  error  whose  characteristic  is  the 
same  as  that  associated  with  the  illegal  value.  This  implies  that  one 
can  deal  with  failures  like  overflow  in  the  current  procedure  by  using 
these  illegal -handling  instructions. 

In  T-state,  an  error  results  in  the  premature  exit  from  the  current 
procedure  with  an  illegal  value  in  U  whose  word-pair  is  the 
characteristic  of  the  error.  Since  illegal  values  give  errors  unless 
explicitly  tested  for,  the  net  effect  is  that  an  entire  chain  of 
procedure  calls  are  exited  from  until  one  is  encountered  which  is 
prepared  to  accept  an  illegal  result. 

In  D-state  (Diagnostic  state)  all  exceptions  are  treated  identically.  In 


essence,  a  system  procedure.  faiI_proc.  is  called  in  place  of  the 
current  procedure,  so  that,  if  an  exit  was  obeyed  in  fail_proc.  it  would 
exit  to  the  same  place  as  the  current  procedure.  The  parameters  of  the 
call  of  fail_proc  give  access  to  the  locals  and  codeblock  of  the  failing 
procedure  and  the  characteristic  of  the  exception  is  available  as  a 
non-local.  The  (softwared)  action  of  fail_proc  is  to  construct  a  chain 
of  failing  environments.  It  does  this  by  constructing  an  element  of  the 
chain  and  then  doing  an  exit.fail  with  a  reference  to  the  element  in  U. 
Eventually,  some  lower  procedure  will  gather  up  the  resulting  illegal 
and  use  it  to  construct  visible  diagnostics  for  the  exception.  As  far  as 
the  firmware  is  concerned,  all  that  it  does  at  an  exception  in  D-state  is 
to  find  fail_proc  in  system Jt>lock.  dump  the  characteristic  into 
system Jslock,  and  call  fail_proc  with  a  four  word  parameter  consisting 
of  a  pointer  to  the  current  locals,  relative  values  of  pc  and  sf,  and  a 
pointer  to  the  local  codeblock. 


5  Storage  allocation 

Only  the  micro-code  regards  Flex  main  store  as  a  linear  store 
addressable  from  end  to  end.  The  macro-code  which  is  the  Flex 
instruction  set  only  understands  blocks  and  pointers  to  them,  so  that 
Flex  program  can  only  address  those  disjoint  unrelated  blocks  for  which 
it  has  pointers  of  the  right  sort.  Running  programs  will  involve  new 
blocks  being  created  to  hold  data,  for  example  by  using  the  generate 
instructions  (72-7V  etc)  or  simply  by  calling  a  procedure  which 
requires  a  new  work-space  block.  Thus  the  micro-code  which 
implements  those  instructions  simply  grabs  a  new  empty  block  from  the 
top  of  a  continually  growing  stack  in  the  linear  store,  putting  in  the 
appropriate  overhead  word  and  delivering  a  pointer  as  result. 

This  linearly  growing  stack  will  eventually  encompass  the  entire 
physical  store  and  at  this  stage  garbage  collection  occurs.  The  garbage 
collector  notes  all  of  blocks  which  are  still  ’‘live”,  and  compacts  all 
live  blocks  down  to  the  bottom  of  store,  updating  all  pointers  in  them 
so  that  they  still  point  to  the  same  data.  Thus  the  space  occupied  by 
"dead"  blocks  is  recovered  and.  hopefully,  there  will  be  sufficient 
room  in  the  linear  store  for  the  request  for  a  new  block  which  provoked 
the  garbage  collection. 

Clearly  the  address  actually  held  in  a  pointer  can  change  on  each 
garbage  collection.  However  since  all  pointers  to  a  given  block  are 
changed  consistently  and  since  arithmetic  is  forbidden  on  pointers,  one 
can  regard  pointers  as  immutable  objects  in  Flex  programs. 

A  live  block  is  either  a  unique  block,  system_block,  or  else  is  pointed 
to  from  within  another  live  block.  System_block  is  a  block  known  to  the 
micro  code  and  contains  the  interrupt  procedures  and  other  goodies  to 
keep  alive  all  currently  active  processes. 


The  actual  sequence  of  events  which  happens  in  the  micro  code  at  a 
garbage  collection  is  as  follows.  The  micro  code  discovers  that  a 
request  for  the  generation  of  a  block  cannot  be  satisfied  from  the 
linear  store.  It  then  interpolates  the  call  of  a  procedure,  scavenge, 
before  the  current  instruction.  Scavenge  (which  is  found  in  system 
block)  is  a  peculiar  procedure  in  that  one  can  guarantee  that  there  will 
always  be  a  workspace  available  for  it  and  that  it  can  accept  any  value 
in  U  as  a  parameter.  This  last  is  necessary  since  the  instruction 
requiring  the  block  could  be  a  procedure  call  which  is  meant  to  leave 
the  value  of  U  unchanged.  The  privileged  scavenge  procedure  dumps  the 
value  of  U  (op  code  206),  obeys  the  garbagejcollect  instruction  (op 
code  26V ),  and  then  finds  if  the  current  store  demand  can  be  satisfied; 
if  it  can  then  the  dumped  value  of  U  is  reinstated  (op  code  265)  and 
scavenge  is  exited  -  to  repeat  the  store  grabbing  instruction.  If  it 
cannot  be  satisfied,  then  some  process  must  be  fai  led  so  that  store  can 
be  released  to  continue. 


6  Interrupts 


Time  critical  interrupts  (to  deal  with  the  screen  refresh,  for 
example)  are  serviced  entirely  in  micro-code  without  disturbing  the 
Flex  procedure  and  process  structure.  Some  of  these,  of  course,  may 
require  attention  at  the  Flex  level  and  this  attention  will  be  initiated 
by  a  Flex-interrupt  at  the  next  available  opportunity.  As  an  example, 
the  micro-code  services  both  a  real-time  clock  and  an  interval  timer 
every  sixtieth  of  a  second,  only  interacting  at  the  Flex  level  when  the 
timer  count  expires  (see  instructions  with  op  codes  36  and  216  for 
reading  and  setting  this  counter ). 

A  Flex-interrupt  can  only  occur  when  U  contains  void  and  the 
instructions  are  being  obeyed  in  non-privileged  state.  This  sometimes 
occurs  in  the  middle  of  an  instruction  where  repeating  the  instruction 
would  do  no  harm.  This  is  the  case  in  the  load  instructions  where  U  is 
void  after  it  has  been  pushed  but  before  the  new  value  has  been  loaded 
into  Ui  since  pushing  void  is  a  null  operation,  the  instruction  has  the 
same  effect  whether  or  not  it  has  been  interrupted  and  restarted. 

When  a  Flex-interrupt  occurs,  the  effect  is  exactly  the  same  as  if  a 
parameterless  procedure  (delivering  void)  had  been  called  in  the  code 
being  interrupted.  This  procedure  depends  on  the  type  of  interrupt  and 
is  found  in  system_block.  The  calling  sequence  of  an  interrupt 
procedure  will  not  invoke  garbage  collection  (although  inner  calls  may) 
and  is  intended  to  be  run  in  privileged  state. 

Sixteen  different  Flex-interrupts  are  possible,  each  with  its  own 
procedure  in  system_block.  They  are  arranged  to  be  called  in  priority- 
order,  each  interrupt  being  queued  until  it  is  the  one  of  highest 
priority. 
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7  External  capabilities 

Capabilities  which  are  in  some  sense  external  to  the  mainstore  of  Flex 
are  represented  in  Flex  by  locked  pointers  to  type  6  keyed  blocks.  As  an 
example,  filestore  capabilities  are  "pointers"  to  data  on  disc.  The 
contents  of  the  type  6  block  allows  one  to  determine  where  on  the  disc. 
The  key  of  the  type  6  block  is  a  pointer  which  determines  the  particular 
filestore.  In  general,  the  key  determines  how  (or  whether)  one  can 
transput  these  external  capabilities,  together  with  a  system-wide 
coding  which  gives  its  identity.  Thus  although  one  can  store  filestore 
capabilities  themselves  on  filestore,  cross  filestore  capabilities 
(those  with  different  codings)  are  in  general  not  allowed;  one  cannot 
point  from  one  filestore  to  another.  This  is  reflected  in  mainstore  by 
the  fact  that  the  keys  of  capabilities  to  different  filestores  have 
different  keys.  Note  that  since  the  keys  are  pointers  ,  they  are 
unforgeable  and,  hence,  only  procedures  which  know  the  key  can  access 
the  information  in  the  block. 

The  detailed  format  of  the  representation  of  an  external  capability  in 
mainstore  ist 


The  pointer  to  the  systemjalock  in  the  first  word  of  the  key  is  there 
to  ensure  that  only  authorised  procedures  can  create  external 
capabilities;  ie  those  who  can  access  system_block. 

The  alias  word  in  the  keyed  block  is  usually  used  by  the  access 
procedures  as  a  short  cut;  for  example,  after  reading  the  data 
corresponding  to  a  filestore  capability  into  a  block  of  mainstore,  the 
alias  field  will  contain  a  shaky  pointer  to  that  block  to  avoid 
unnecessary  later  reads  of  the  disc.  In  order  to  make  this  effective, 
the  instructions  which  receive  external  capabilities  from  the  outside 
world  will  ensure  that  there  is  at  most  one  copy  of  the  type  6  block 
with  the  same  cap-info  and  key  in  mainstore  at  any  one  time. 

Just  as  in  mainstore,  it  is  necessary  to  be  able  to  distinguish 
capabilities  from  scalar  data  on  the  external  media,  be  it  in  networks, 
or  in  filestore  etc.  Flex  filestore,  for  example,  uses  blocks  in 
filestore  and  pointers  to  them  in  much  the  same  way  as  in  mainstore. 
Just  as  in  mainstore,  some  of  the  filestore  blocks  cannot  contain 
capabilities,  in  analogy  to  the  type  3  and  11  blocks  in  mainstore. 
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However,  the  majority  of  filestore  blocks  are  analagous  to  type  2 
(codeblock ), If-  (normal)  or  5  (procedure)  blocks  which  will  contain 
other  capabilities  usually  to  other  data  in  the  same  filestore.  In  these 
instances,  data  in  transferred  in  multiples  of  32-bit  words  where.  Just 
as  in  mainstore,  the  least  significant  bit  differentiates  between 
scalars  and  capabilities. 

A  privileged  instruction  (op  code  225)  transforms  the  mainstore 
representation  of  an  external  capability  to  a  form  suitable  for  sending 
to  external  devices.  This  external  representation  comes  in  either  the 
long  form  or  the  short  form.  If  the  key  of  the  capability  is  the  same  as 
the  one  given  as  another  operand  to  the  instruction  then  the  short  form 
is  produced  otherwise  it  is  the  long  form  which  includes  the  coding  in 
the  capability  key: 

Long  form: 

Word  1 
Word  2 


2if-bit  coding  in  key  in  Type  6 

□ 

6-bit  size 

0 

copy  of  cap-info  in  Type  6  block 


The  short  form  is  just  the  first  two  words  of  the  cap-info  in  the  type 
6  block,  with  the  least  significant  bit  of  the  first  word  set  with  its 
eightth  bits  clear. 

The  instruction  (opcode  233)  is  also  privileged,  and  produces  a 
mainstore  representation  of  an  external  capability  from  the  cap-info  in 
these  external  representations.  It  uses  a  key  derived  from  the  coding 
in  the  first  word  of  the  long  form  and  from  some  procedural  context  in 
the  short  form.  For  example,  a  filestore  capability  to  a  Winchester 
disc  on  the  disc  itself  is  expressed  in  the  short  form.  This  instruction 
makes  use  of  a  256-entry  hash  table,  held  in  8ystem_bIock,  to  search 
for  an  already  existing  copy  of  the  capability  in  mainstore  so  that  there 
are  never  duplicates  of  an  external  capability  in  mainstore. 

These  transformations  are  done  via  a  buffer  area  of  main  store  which 
is  used  for  general  peripheral  transfers,  including  dma  transfers.  It  is 
unaffected  by  garbage  collection  and  is  the  area  referred  to  in  the 
buffer  transfer  instructions. 
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6  PerqFlex  instruction  aet 


Instructions  are  usually  1.  2  or  3  bytes  long,  the  first  defining  the 
operation  code.  The  remaining  bytes,  if  any.  are  denoted  by  a  &  sz  (1 
byte  quantities)  or  p  (two  byte  quantity).  The  a-field  generally  is  a 
data  displacement  and  the  sz-field  gives  data  size.  The  a  and  sz  fields 
can  be  effectively  extended  by  using  the  modify_next  instruction  (op 
code  76).  A  p-field  is  a  byte  displacement  from  the  beginning  of  the 
current  procedure  code. 

Almost  every  instruction  can  cause  exceptions.  These  can  arise  in  many 
different  ways  eg  the  operand!  s)  of  the  instruction  are  of  the  wrong 
type  for  the  instruction  or  displacements  given  are  too  big  for  the 
blocks.  The  exceptions  raised  by  breaking  the  rules  in  such  a  way  will 
have  a  characteristic  pair  consisting  of  (6.  small  integer)  (see  9.6). 

Due  to  an  idiosyncracy  of  the  Perq  hardware,  instruction  bytes  are 
expressed  in  a  different  order  to  that  implied  by  the  character 
indexing  and  dereference.  The  first  instruction  byte-  is  in  the  least 
significant  half  of  each  16-bit  word  while  indexing  works  with  the  most 
significant  half  first.  The  procedures  for  constructing  codeblocks  on 
filestore  regularise  this  position  by  re-ordering  the  bytes  of  the 
string  giving  the  instructions  of  the  codeblock. 

A  ”  superscript  in  the  description  of  an  instruction  means  that  the 
instruction  is  Flex-interruptable  at  that  point. 


8. 1  Unprivileged  instructions 
LoadLljword 

6  .  a  t  Push  U  *  .  U«-  a^^  word  of  locals. 

1  .  a  I  Push  U  *  ,  a^^  word  of  non- locals. 

2  .  a  I  Push  U  *  .  Uj»  a^^  word  of  constants. 

3  .  a  t  U<«  a^^  word  of  block  pointed  at  by  U. 


Load^jwords 
V  .  a 


I  Push  U  "  ,  word-pair  at  a^^  word  of  locals. 


5  .  a  I  Push  U  "  .  Ui>  word-pair  at  a^^  word  of  non.locals. 

6.8  I  Push  U  *  .  Ui>  word-pair  at  a^^  word  of  constants. 

7.8  I  Ui«  word-pair  at  a^^  word  of  block  pointed  at  by  U. 


Loadjd— words 

8  ,  a  ,  sz  I  Push  U  *  ,  Ui-  sz*3  words  at  a^^  word  of  locals. 

■ 

9  ,  a  .  sz  I  Push  U  ,  Ui>  sz«3  words  at  a-ih  word  of  non-locals. 

16.  a  ,  sz  I  Push  U  *  ,  Ui>  SZ43  words  at  a-th  word  of  constants. 

11,  a  ,  sz  I  Ut*  sz*3  words  at  a^"  word  of  block  pointed  at  by  U. 

LoadLljcharacter 

12,  a  1  Push  U  "  ,  U2  =  character  in  a*'^  word  of  locals. 

13,  a  I  Push  U  *  ,  U:*  character  in  a*'"  word  of  non- locals. 

IV,  a  I  Push  U  "  ,  Ui=  character  in  a*""  word  of  constants. 

15,  a  s  U:  -  character  in  a*’^  word  of  block  pointed  at  by  U. 

Load_l_boolean 

16,  a  :  Push  U  *  ,  Us*  bool  in  a^^  word  of  locals. 

B  th 

17,  a  I  Push  U  ,  Ui*  bool  in  a''"  word  of  non- locals. 

B 

18,  a  t  Push  U  ,  Ui«  bool  in  a^  word  of  constants. 

19,  a  i  Ui>  bool  in  a^^  word  of  block  pointed  at  by  U. 

Load_ptrJto_currenljBreas 

28  i  Push  U  ”  ,  U:>  locked  ptr  to  non-locals  block. 

29  t  Push  U  *  ,  Ut»  locked  ptr  to  constants  block. 

LoacLliieral 

36,  a  I  Push  U  *  ,  Ut>  a  (Char). 

31,  a  iPushU”,Ui«a  (Bool) 

32,  a  I  Push  U  *  .  U:*  a  (Int). 

33  »  Push  U  *  ,  Ui*  void. 

Load_pirJto_local8 

3k  I  Push  U  ”  ,  Ui*  ptr  to  locals  block. 
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LoadJtimes 

35  I  Push  U  "  ,  Uj»  time  of  day  (Int  jiffies). 

36  I  Push  U  *  .  Ui>  unexpired  slot-time  (Int  jiffies). 

1  jiffy  *  1/60*'^  second 

Pu8h_sndLiake 

37.  sz  I  Push  U  *  ,  Ut*  sz  words  on  tos. 


StoreJJ 

■f-6  ,  a  <  Stores  U  (unexceptional)  at  a^^  word  of  locals  ,lJ:=void  *. 

<«’3  .  a  :  Stores  U  (unexceptional )  at  a^^  word  of  block  pointed 

at  by  tos,  Us«  void*. 


Select_fromJLI 

ifii-  .  a  ,  sz  I  Ui>  sz  words  starting  at  a^'*  word  of  U. 


Date 

VS  «  Push  U  *  ,  U:*  Int  date  as  days  after  31®^  Dec  1982 

{  assuming  31  days  per  month) 


Shift 

V6  «  Uj«  tos  Leftshift  Us  (Int.Int ) -«  (Int.Int ) 

ie  if  tos  «  ♦  Y  then  U  s-  (X,Y»2^) 


Select_ref 

V7  ,  a  I  Select  ref  i.e.  add  a  to  last  word  of  U. 

Deref 

V8  ,  a  ,  sz  s  Deref  word  vector  in  U 

i.e.  U:«(UPB  vector  ■  a  ♦  sz)  words  pointed  at  by  vector. 

V9  ,  sz  I  Deref  word  ref  in  U  i.e.  U:-  sz  words  pointed  at  by  ref. 

51  ,  sz  s  Deref  char  ref  in  Us  NB  sz  ignored 

U  s  *  character  pointed  at  by  ref. 

53  ,  sz  I  Deref  bool  ref  in  Us  NB  sz  ignored 
Us>  boolean  pointed  at  by  ref. 

Pack  and  Unpack 

5V  I  Unpack  i.e.  Us-  word  contents  of  block  pointed  at  by  U. 

Unpack  with  U  >  Exception  is  null  instruction 

55  I  Pack  i.e.  Us>  ptr  to  block  (type  V)  containing  copy  of  U.  i  J 


Vector  Operations 

56  ,  sz  I  Index  vector  in  U  with  element  size  sz  by  index  on  tos 

giving  ref  to  element  in  Us 
Given  U  »  (b,p,d)  and  tos  >  i. 

U:-(p.d4(i-l  )bsz)  where  1  s  i  £  b. 

57  ,  sz  s  Trim  vector  on  tos  with  element  size  sz  by  Int  pairin  U 

giving  trimmed  vector  in  U; 

Given  U  =  (i.j)  and  tos  *  (b.p.d), 

Ut=  ( jm-im4l,p,d4{im-l  )»sz) 
where  im*  max(  l.i )  and  jm  *  min(b,  j). 

58  :  If  UPB  vector  on  tos  #  UPB  vector  in  U  then  fail  (6,2 ). 


Array  operations 

59  ,  a  s  Index  a-f  1  dimensional  array  in  U  by  a4 1  indices  on  tos 
giving  ref  to  element  in  U; 


66  ,  a 


Given  U 
and  tos 


(IbQfSg  ,tib0,  • .  • , Ib^,s^,ub^t  p,d ) 


.13). 


Uss(p,d  ♦  Sg»(ig-lbg)  4  ...  4 

for  6  s  n  s  a. 


where  Ib^  s  i  s  ub 
n  n  n 


t  Trim  a4l  dimensional  array  on  tos  by  integer  triple  in  U 
giving  a4l  dimensional  array  in  Us 
Given  U  (fu.tu.nlb) 

and  tos  -  (Ibo.So.ubo,  ...,!b  ,s  ,ub  ,p,d), 

6  6  6  a  a  a 


Uj  =  (nlb,Sg,nlb4t-f,  Ib^.Sj.ubj... 


,,  Ibg.Sg.ubg, 


p.  d4(f-lbg)«Sg) 


where  f 


max(  Ibg.fu)  and  t 


min(ubg,tu). 


61  ,  a  <  Slice  84}  dimensional  array  on  tos  by  index  in  U, 
giving  a  dimensional  array  in  U. 

Given  U  >  i 

and  tos  -  (Ibg.Sg.ubg,  ...,Ib^,s^,ub^,p,d), 

Us«  (IbpSj.ubj,  ....  Ibg.Sg.ub^.p,  d4  Sg»(ig-lbg)) 
where  Ibg  i  i  s  ubg 


Unite 

62  ,  a  ,  sz  I  Unite  U  with  a  and  make  it  a  sz  word  object,  i.e. 
U t *  (a,  U,  6, . . . ). 


21 


4 


Assign 

63  I  Assign  (unexceptional )  U  to  position  given  by  ref  on  tos. 

and  let  U  reft 

Procedure  calls  and  exits 

6*«-  .  a  I  Call  the  procedure  given  at  a^^  word  of  locals. 

65  ,  a  i  Call  the  procedure  given  at  a^^  word  of  non- locals. 

66  ,  a  i  Call  the  procedure  given  at  a^^  word  of  constants. 

67  :  Call  the  procedure  given  on  tos. 

68  I  Exit  from  current  procedure. 

69  t  Exit  from  current  proceckjre  and  fail  U  . 


Goto 

71  s  Goto  label  given  in  U,  where  label  is  pair  (pointer  to 

destination  workspace,  p-displacement  in  codeblock). 

(^nerate  new  blocks 

72  »  Ut«  ptr  to  new  closure  (type  5)  formed  from  ptr  to  code 

(type  2  or  6 )  in  U  and  ptr  to  non-locals  (type  >*• )  or  zero 
on  tosj  (Ptr, Word)  -»  Proc. 

73  1  ptr  to  new  normal  array  block  (type  V )  of  size  in 

words  given  by  U. 

7V  s  U:=  ptr  to  new  block  (type  3)  of  size  in  words  given  by  U. 


Modify_next 

76  ,al,szl  «  Modify  the  a  &  sz  fields  of  next  instruction  (if  present ) 

by  ala256  &  sz1b256. 

Stack  front  operations 

77  ,  a  I  Set  sf  to  start  of  locals  *  a  words. 

78  ,  a  I  If  sf  *  start  of  locals  *  a  then  fail  (0,5) 

Discard 

79  lUt-void*. 

Operations  on  pointers 
86  I  Ui*  shake  Ui  Ptr  -»  Ptr. 

81  I  Ui«  firm  Ut  Word  -)  Wordi  Scalars  unchanged. 

82  I  Ui«  U  is  a  ptr*  Word  -»  Bool. 

83  I  Ui- block  type  of  ptr  in  Ui  Ptr -» Int. 

8V  I  Ut-  byte  block  size  of  ptr  in  Ui  Ptr  -» Int. 
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Null  instructions 

85  t  Null  instruction 

86  I  Null  instruction 

Modif  y.iiext  jdynamical  ly 

87  I  Modify  the  a  &  sz  fields  of  next  instruction  by  int  pair 

on  tos. 

Jumps  and  branches 

88  .  p  I  IF  U  then  jump  to  p  FI  ,  U:=  void 

89  ,  p  :  IF  not  U  then  jump  to  p  FI  .  U :  =  void" . 

90  ,  p  j  IF  U  then  jump  f orward  to  p  ELSE  U :  =  void*  FI . 

91  ,  p  f  IF  not  U  then  jump  forward  to  p  ELSE  Ll!=  void  "  FI. 

92  ,  p  «  IF  U  is  illegal  then  jump  to  p,  Ui^void  "  FI. 

93  ,  p  I  Jump  to  p  (if  U  not  void  then  jump  must  be  forward ). 

Set  failure  state 

94^  «  Set  D-state. 

95  i  Set  T-state. 

FOR  instructions 

96  ,  p  :  For  test;  (FOR, BY)  in  U  ,  TO  on  stack  ; 

IF  (T0-F0R)«BY  <  0 

THEN  U:>void,  Pull  TO  ,  jump  to  p"  FI. 

97  ,  p  t  For  step;  "  (FOR, BY)  on  tos  ,  U:  =  (F0R4BY,BY ),  jump  to  p. 

Switches 

98  ,  a  i  Case  switch;  jump  to  next  ■»  (  1  s  U  s  a  |  3«LI  |  0 ). 

99  «  Associative  switch  -  tests  equality  or  ranges; 

Followed  by  sequence  of  byte  triples  or  quads: 

(b.,p.  )  or  (x.*128,y..p. ) 

terminated  by  (b^«0,p^),  where  b^<128  and  x^<l28; 

FORi  DO 

IF  U-b.  ( single  byte )  OR  U  i  x.  AND  U  s  y.  THEN 

jump  to  p.,  U I -void* 

ELIF  b^  -  0  THEN  jump  forward  to  p^  FI 
OD. 
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Integer  arithmetic 


lee 

s  U:Btos-»Us  (Int.lnt )->Int. 

lei 

s  U:>tos-U;  (Int.lnt )-»Int. 

162 

s  Uistos«Us  (Int.lnt )-»Ini. 

163 

s  U:>(remainder.tos/U);  (Int.lnt )->(Int.Int ) s 

Sign  of  non-zero  remainder  is  same  as  divisor. 

Integer  tests 

16>t 

t  U:-tos  2  Us  (Int.lnt  H  Bool. 

165 

sU:>tos<Us  ( Int.lnt )-»  Bool. 

166 

i  U:>:tos  £  Us  ( Int.lnt  )->  Bool. 

167 

:  U t >tos  >  U s  (Int.lnt)-)  Bool . 

Monadic  operations 

168  tU:-ABSUs 

Int  -» Int. 

169 

s  U:»  -Us 

Int  -»  Int. 

116 

s  U:=  ABS  Us 

(Char  or  Bool  or  Word)  -»  Int 

112 

s  Ut»  REPR  Us 

Int  -»  Char. 

113 

,  Us»  ODD  Us 

Int  -)  Bool. 

Equality 

11<) 

s  Uss  tos»U 

( Any. Any )  -»  Bool. 

115 

:  U:>  toS^U 

( Any. Any )  Bool. 

Logical  Operations 

116  I  Ui*  tosORU;  ( Bool. Bool  )-»Bool  or  ( Int.lnt  )->Int. 

117  j  tos  ANDU;  ( Bool  .Bool  )-»Bool  or  (Int.lnt  )->Int. 

118  I  U:»  tosEXORUi  ( Bool. Boo  1  )->Bool  or  ( Int.lnt  )->Int. 

119  I  U:s  tosEQUIVU:  ( Bool. Bool  )-»Bool  or  (Int.lnt  )->lnt 

121  I  U:  =  NOT  Us  Bool  -♦  Bool  or  Int-»lnt. 


String  equality 

122  «  Ut«( string  in  vector  on  tos  =  string  in  vector  in  U) ; 

(Vec  Char.Vec  Char  )  -♦  Bool. 

123  s  U I >( string  in  vector  on  tos  #  string  in  vector  in  U)s 

(Vec  Char.Vec  Char  )  -»  Bool. 
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Real  arithmetic 


12**-  «  Ui*  tos«U; 

(Real, Real  )-»Real  or  (ShortReal.ShortReal  )-»ShortReal. 

125  «U:=tOS-U! 

( Real. Real  )-^eal  or  (ShortReal.ShortReal  )-»ShortReal. 

126  i  Us«  tOSBli; 

(Real.Real  )->Real  or  (ShortReal.ShortReal  )-»ShortReal. 

127  .U:=tos/U, 

(Real.Real  )-)Real  or  (ShortReal.ShortReal  )-»ShortReal. 


Real  tests 

128  i  U:>  tos  2  Ui  (Real.Real)  or  (ShortReal.ShortReal)  ->  Bool 

129  !  U:*  tos  <  Us  (Real.Real)  or  (ShortReal.ShortReal )  -»  Bool 

136  I  U:>  tos  s  Us  (Real.Real)  or  (ShortReal.ShortReal)  Bool 

131  t  Ui>  tos  >  Us  (Real.Real)  or  (ShortReal.ShortReal )  Bool 


Real  monadic  operations 

132  s  Us»  ABS  Us  Real-»Real  or  ShortReal  •*  ShortReal. 

133  I  U>«  -  Us  Real-^eal  or  ShortReal  -*  ShortReal. 

13V  t  U:*ENT1ER  Us  Real  or  ShortReal  -» Int. 

135  t  Us -ROUND  Us  Real  or  ShortReal  -» Int. 

136  I  Us-  widen  Us  Int  -»  ShortReal. 

137  I  Us-  widen  Us  Int  or  Longlnt  -♦  Real. 

138  t  Us  -  ENTIER  Us  Real  Longlnt. 

139  s  Us  -  ROUND  Us  Real  -»  Longlnt. 

Long  arithmetic 

1V0  s  Us-tos+U  s  (Int, Int  or  Longlnt)  -»  Longlnt. 

IV 1  s  Us-tos-U  s  (Int, Int  or  Longlnt)  -»  Longlnt. 

1V2  s  Us-tos>U  s  ( Int, Int )-♦  Longlnt. 

1V3  8  Us  =  (remainder,tos/U)5  ( Longlnt,  Int ) -»  (Int,Int)s 

Sign  of  non_?ero  remainder  is  same  as  divisor. 

Long  to  decimal 

IVV  s  U s-( remainder, U/ 16);  Longlnt  -»  ( Int, Longlnt ). 

Long  conversions 

1V5  8  Us-  LENGTHEN  U;  Int  -»  Longlnt. 

1V6  8  Us  -  SHORTEN  Us  Longlnt  Int. 

Decimal  to  long 

1V7  s  Us-  Ub16  «(  U  2  6  I  tos  I  -tos);  (Int, Longlnt )  -»  Longlnt 


Long  tests 

l>f8  I  U:=  tos  2  U;  ( Longint . Longint )  -*  Bool. 

I  Ui>  tos  <  U;  ( Longint, Longint )  -»  Bool. 

156  I  U:=  tos  i  Ui  ( Longint, Longint )  ->  Bool. 

151  I  U:-  tos  >  Ui  ( Longint, Longint )  -»  Bool. 

Real  conversion 

152  >  U:>  LENGTHEN  U;  ShortReal  -»  Real. 

Max  and  Min 

154-  I  U:>  max(tos,U)t  (lnt,lnt)  ->  Int. 

155  t  Ut«  min(tos,U) i  (Int,lnt ) ->  Int. 

Range  checks 

156,  a  ,  sz  1  U:s  (a  £  U  s  sz) i  (Int  or  Char)-»  Bool. 

157  j  Given  U  *  (l,u),  Uj=  (1  i  tos  s  u)i 

(Int  or  Char, (Int, Int))  -»  Bool. 

Keyed  block  operations 

158  I  Ui«  open  ptr  to  new  keyed  block  of  size  U  words;  Int  -»  Ptr. 

159  I  Uj*  locked  version  of  pointer  in  U;  Ptr  -»  Ptr  or  Ref  -»  Ref. 

160  j  Ut*  open  ptr  to  keyed  block  in  U  with  key  on  tos; 

(Word, Ptr  or  Ref)  -♦  Ptr  or  Ref. 

161  ]  Given  U  -  pointer  to  keyed  block  with  system  block 

as  key,  U:*  2nd  word  of  block.  Ptr  -»  Word 

Load  djto  J3 

162  «  Push  U  "  ,  Uj*  d_to_b  (in  9*'^  word  of  system  block ). 

Decimal  exponent  conversions 

163  :  U:>  (e,l)  given  I>10^  «  Ut 

ShortReal  -*  (Int, Int)  or  Real  -»  (Int, Longint). 

164  I  U«- U  ■10*^°®! 

(Int, Int )  ■*  ShortReal  or  (I  «  .Longint )  -»  Real. 

Unite  with  Exception 

165,  sz  I  Ui«IF  U  isnt  exception  THEN  ( 1,U,..,6,... ) 

ELSE  (2, characteristic  word  pair  of  U...6... ) 

FI  I 

(Any  or  Exception)  -»  sz^Word. 
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Vector  pack  and  unpack 

166  I  Pack  U  into  new  vector  t 

(naWord)  -»  Vec  Word,  Char  -»  Vec  Char  or  Bool  -»  Vec  Bool. 

167  I  Unpack  vector  in  U  to  produce  n^words,  char  or  bool  in  U; 

Vec  Word  -»  n«Word,  Vec  Char  ->  Char,  or  Vec  Bool  -»  Bool. 
Unpack  applied  to  an  exception  is  a  null  instruction. 


172  I  Null  instruction 
Fail 

173  ;  U:*  Exception  formed  from  word-pair  in  U; 

(Word, Word)  -*  Exception. 

173  ,  a  .  U  .*  IF  U  THEN  void  ELSE  Exception! 0, a )  FI  s 
Bool  -)  Exception 

Generate  Char.  Bool  and  Code  blocks 

174-  »  U  j=  pointer  to  new  type  3  block  just  large  enough  to 

contain  U  chars;  Int  -»  Ptr. 

175  ;  U  ;■  pointer  to  new  type  11  block  just  large  enough  to 

contain  U  bools ;  Int  -♦  Ptr. 

176  t  U  ««  pointer  to  new  code-block  (type  2)  given  by 

U  »  (ws,  nls,  instr)  where; 
ws  -  no  of  words  of  locals  required  by  codeblock 
nls  =  ptr  to  type  4  block  containing  constants 
instr  «  ptr  to  type  3  block  containing  instructions 
(Int, Ptr, Ptr  )-»Ptr. 

(^ar  and  Bool  multiple  assignments 

180  ;  Assign  chars  in  Vector  given  by  U  to  Vector  given 

on  tos  and  let  U  »  Vector  from  tos. 

181  ;  Assign  bools  in  Vector  given  by  U  to  Vector  given  . 

on  tos  and  let  U  *  Vector  from  tos. 

182  I  Assign  bools  in  2-d  array  given  by  U  to  2-d  array  given  in 

on  tos  and  leave  U  unchanged, 
st 

1  stride  of  both  arrays  must  be  a  multiple64 
2^*^  stride  of  both  arrays  must  be  1 . 


Real  conversion 

183  I  U I -SHORTEN  U;  Real  -»  ShortReal. 


Load  literal  string 

18V  ,  sz  i  Push  U  *  t  U  t-  (sz.instr,pc42)  and  pct*sz424d 

where  pc  is  the  current  program  displacement  and  is  odd 
before  the  instruction  and  d  *6  or  1  is  chosen  to  make 
it  odd  after. 

and  instr  is  locked  version  of  current  instruction  block. 

Bool  array  operations 

18V4i  I  f.(6ool  2-d  array  on  tos,  Bool  2>d  array  in  U),  1  i  i  i7 
U  unchanged  t 

st, 

1  stride  of  both  arrays  must  be  a  multiple  of  6V 
nd 

2  stride  of  both  arrays  must  be  1. 

Where 

fj(a.b)  =  a.=  NOTb. 

f2(a,b)  *  at^aANDb. 
fg(a,b)  »  a>=aANDNOTb. 
f^(a,b)  *  at'^aORb, 
fg(a,b)  «  at>aORNOTb. 
fgia.b)  B  at^aEKORb. 
fy(a,b)  >  as*  a  EXOR  NOT  b. 

Multiple  adds  and  subtracts 

192  I  U:«toS4U  i  (N«int.N«lnt)  N^lnt 

ie  (1.2)  4  (V.5)  -  (5,7) 

193  I  U:-tos-U  i  (N*lnt,N«lnt ) -»  N«lnt 

Enable 

201  I  Set  non-privileged  state. 
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8.2  Privileged  instructions 

Any  attempt  to  use  these  instructions  in  unprivileged  mode  will 
result  in  error(6, 11). 

Append 

st 

153  <  U  tos  Append  U  .where  tos  *  ref  to  block  whose  1 

word  is  chain  ending  in  zero.  (Ref. Word  or  Ref )  ■*  Ref 

Lock  procedure 

159  I  U  i  -  locked  version  of  proc  pointer  in  U 
Winchester  disc 

19<t-.  6  i  Set  disc  header  address  from  U  (V/ec  Char);  U:-void. 

19<f.  1  t  Set  disc  data  address  from  U  (Vec  Char);  U:=void. 

19V.  2  I  Start  disc  access.  U  «  (Int  action,  Int  disc_address ) ; 

Ui>void. 

19V,  3  t  U  i«  disc  status  (Int). 

19V,  V  1  U  ;■  disc_address  (Int)  obtained  from  next  V  bytes  of 
currently  selected  i/o  buffer. 

19V,  5  I  Put  disc_address  (Int )  in  U  into  next  V  bytes  of 
currently  selected  i/o  buffer ;  Uo’void. 

19V,  6  s  U  <«  outermost  discjaddress  (INT) 

19V,  7  <  U  ordered  sequence  number  of  discjaddress  in  U; 

Int  Int. 

19V,  8  :  Read  disc  drive  details  from  i/o  buffer. 

19V,  9  I  tos  <  U  in  disc  address  sequence;  (Int, Int )  -»  Bool. 

Laser  printer 

19V,  16  I  Set  left  and  right  hand  margins  to  UIG  and  r^lG  pixels 
and  set  get  ready  state  where  U  «  ( I ,  r ) ; 

Ui>  status  of  printer;  IntPair  -» IntPair. 

19V,  17  i  If  s  >  1  then  start  printer  and  insert  I  pixel  lines, 
where  U>(s,I  )i  IntPair  -»  Void. 

19V,  18  I  If  U  ■  8  then  Ui -status  of  printer 

Elsf  U  >  1  then  Us -status  at  last  interrupt 
Elsf  U  -  2  then  Reset  interface;  Ui-(e,e) 

n, 

Int  -♦  IntPair. 

19V,  19  I  Output  1  pixel  lines  starting  from  bit  position  given  by  r 
alligned  to  16  bit  word  boundary  where  U  -  ( I.r ) ; 

(Int, Ref  Bool )  -»  Void. 

Scavenge 

28V  t  Do  a  garbage  collection,  delivering  the  number  of 
words  recovered  in  U  as  an  Int. 


Dump  and  reset  U 

206  I  Dump  U  (in  internal  form)  to  the  first  5  words  of  the 
current  work-space. leaving  U  void. 

267  i  Reset  U  from  dumped  value  in  first  5  words  of  the 

current  work-space. 

Ethernet  channel 

268  I  Ethernet  accept  t  Vec  Char  -»  Void. 

269  I  Ethernet  readt  Vec  Char  -»  Void. 

216  i  Ethernet  sends  V/ec  (^r  •*  Void. 

Z86  devices 

212  I  Push  U  *  ,  U:>  selected  device  interrupt  reason  (Int). 

213  t  Fast  output  data  for  selected  devices  Vec  Char  Ints 

U  t>  unsent  size  of  previous  data  (Int). 

21V  t  Selected  device  status  input  buffers  Vec  Char  ->  Ints 
U  I*  pevious  status  buffer  size. 

Set  times 

215  t  Set  time  (jiffies)  from  Int  in  Us  Us>void. 

or  date  and  time  from  (Int. Int )  in  U 

216  t  Set  interval  timer  (jiffies)  from  Int  in  Us  U»*void. 

Load  ref  to  systemjalock 

217  I  U«*  Ref  to  U^^  word  of  system.block s  Int  Ref. 
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I/O  buffers 


219  «  Write  Int  in  U  to  next  byte  in  buffer  if  there  is  room  and 

deliver  TRUE  i  othewise  FALSE  .  Int  -»  Bool 
Bytes  in  Perq  i/o  order 

220  I  Select  10  buffers  Vec  Char  -»  Void 

221  t  Write  INT  in  U  to  next  byte  in  buffer  if  there  is 

room  and  deliver  TRUE  ;  othewise  FALSE  .  Int  -»  Bool 
Bytes  in  character  index  order 

222  I  Write  INT  in  U  to  next  2  bytes  in  buffer  if  there  is 

room  and  deliver  TRUE  t  othewise  FALSE  .  Int  ■+  Bool 

225  I  If  U  is  an  external  cap^ility,  and  the  first  word  in  its 

block  is  identical  to  the  word  on  tos,  then  the  short  form 
of  its  representation  is  written  to  the  buffer  s 
Other  capabilities  are  written  in  long  form.  If  U  is  not  a 
pointer,  then  the  word  on  tos  is  irrelevant  and  the  bytes 
written  are  an  (even)  byte  representation  of  the  integer 
in  U. 

U  s  >  ( room  in  buffer  ) 

(Word, Word)  -» Bool. 

226  »  Set  buffer  index  to  U  (Int);  Us*void 

227  I  Push  U  8  U  I*  next  byte  from  buffer  as  Int. 

Bytes  in  Perq  i/o  or^r 

228  t  Push  U  I  U  t«  next  buffer  index(Int). 

229  I  Push  U  8  U  s»  next  byte  from  buffer  as  Int. 

Bytes  in  character  index  order 

230  I  Push  U  8  U  !■  next  2  bytes  from  buffer  as  Int. 

231  I  Push  U  8  U  !•  next  ^  bytes  from  buffer  as  integer. 

233  I  U  i>  next  capability  in  buffer,  given  key  in  U 

Ptr  -»  Word 

235  I  Push  Us  U  :»  type  of  next  word  in  buffer 


Special  Areas 


2W2 

2V3 


I  U  !■  ptr  to  the  block  (type  11 )  containing  the  default 
character  font. 

I  U  !■  ptr  to  the  block  (type  3)  containing  all  1/0  buffers. 

8  U  !■  ptr  to  the  block  (type  11 )  containing  the  bits  for  the 
screen  raster. 
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Make  and  break  blocks 

239  t  U  t*  word-pair  in  first  two  words  of  block  pointed  at  by  U; 

Ptr  -»  (Word. Word) 

2't-0  t  Assign  word  pair  in  U  to  block  pointed  at  by  tost 
(Ptr, (Word, Word) )  -»  void. 


Z86  devices 

2V5  I  Control  data  for  selected  device  depending  on  U  type : 
Vec  Char  t  set  new  input  buffer  i 

U  t«  unused  size  of  previous  buffer. 

Int:  Increase  unused  part  of  input  buffer  (wrap-round); 
U  previous  unused  size. 

(Ref  Char.Int,Int,Int)t  Implement  input  flow  control; 

U  i«  void. 

24-6  I  Select  Z80  device  from  Int  in  Lit  Ui*void. 

247  :  Send  message  from  Vec  Char  in  U  to  Z80 1  U :  ^void. 

Screen  pointer 

248  I  Assign  screen/pointer  combination  function  ( Int )  and 

start  address  of  cursor  pointer  from  Ui  Ui*void 
( Int,  Ref  Char )  -♦  void 

249  i  Set  vertical  position  of  pointer  from  U ;  Int  Void 

250  I  Set  horizontal  position  of  pointer  from  U ;  Int  -»  Void 

High  resolution  tablet 

251  I  If  U  then  GPIB  input  to  be  interpreted  as  tablet  input ; 

Bool  -» Void 


9  Data  and  block  formats 


9. 1  Data  Objects 
Integers 
One  word: 

31 -bit  2*s  complement |0 


T 


T 

least  significant  bit 


most 
significant  bit 

Any  overflows  in  an  integer  operation  produces  the  exception  fail (0,3) 
as  the  result  of  the  operation. 


Long  integers 
Two  words: 

-  Word  1 

-  Word  0  *  most  significant  word  of  longint 

most  least  significant  bit 

significant  bit 

Any  overflows  in  a  long  integer  operation  produces  the  excep-ion 
faii(0.3)  as  the  result  of  the  operation.  The  least  significant  30  bits 
of  a  long  integer  are  held  as  a  positive  integer  to  allow  easy  extension 
to  multiple  length  arithmetic. 

Short  Reals 

One  word : 

24  bit  mantissal  7  bit  exponent |0  ' 

-  - y 

most  least  significant 

significant 

The  mantissa  of  a  short  real  is  actually  a  25  bit  normalised  2's 
complement  fraction.  Since  the  sign  bit  of  such  a  non-zero  fraction  is 
always  the  complement  of  its  most  significant  bit  .  the  sign  bit  is  not 
stored.  Short  real  6.0  is  held  specially  as  all  zero  bits.  The  exponent 
is  biassed  by  6V  so  that  the  true  binary  exponent  is  64  less  than  the 
7-bit  pattern  given  in  the  exponent  field.  Any  overflow  in  an  short  real 
operation  produces  the  exception  fail(6. 16)  as  the  result  of  the 
operation. 
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Two  words  t 


Word  1 
Word  6 


I  31  bit  mantissa  extension  ( Is  part ) 

:  16  bit  mantissa|0666|l  1  bits  biased  exponent 


U 

a 


I 


most  least  significant 

significant 

The  mantissa  of  a  real  is  actually  a  >1  ^  bit  normalised  2 ’s  complement 
fraction.  Since  the  sign  bit  of  such  a  non-zero  fraction  is  always  the 
complement  of  its  most  significant  bit.  the  sign  bit  is  not  stored.  Real 
6.6  is  held  specially  as  all  zero  bits.  The  exponent  is  biassed  by  1624- 
so  that  the  true  binary  exponent  is  182V  less  than  the  11 -bit  pattern 
given  in  the  exponent  field.  Any  overflow  in  a  real  operation  produces 
the  exception  fail (6. 16). 


Pointers 
One  word] 

H-bit  Word  address 

I  _  _  I _ 

Lj2  bit  gcjejV  bit  type|Sj3  bit  spare|l9  bit  block  address|l 

1  «  pointer  locked  1  *  pointer  shaky 

6  «  pointer  unlocked  6  #  pointer  firm 

The  type  is  repeated  in  block  overhead  word  in  same  position  with  H-bit 

•  1. 


References 


Two  words  > 


Vectors 


.  Word  2 
I  Word  1 
I  Word  6 

The  assignment,  trimming  and  equality  of  vectors  behave  sensibly  with 
zero  sized  vectors. 


Word  3n«  1 

Word  3n 

Word  3n- 1 

Word  3n-2 
Word  3n-3 

Word  2 
Word  1 
Word  e 

The  assignment,  trimming  and  other  operations  on  empty  arrays  behave 
sensibly. 


Arrays 

3n42  Words  gives  an  n-dimensional  array  i 


Bit  disp  if  type  >11,  char  disp  if  type  *  3  else  word  disp 

e] 

L|2  bit  gclsjif  bit  type|S|3  bit  spare 1 19  bit  block  address 

i' 

Upper  bound  1  of  array 

0 

Stride  1  of  array 

0 

Lower  bound  1  of  array 

0 

Upper  bound  n  of  array 

Stride  n  of  array 

0 

Lower  bound  n  of  array 

0 

Three  words > 


Bit  disp  if  type  >11,  char  disp  if  type  >  3  else  word  disp 

|L|2  bit  gc 

01*4  bit  type|S|3  bit  spare 

19  bit  block  address 

Upper  bound  of  vector  -  lower  bound  >  1 

9.2  Blocks 


Workspaces 


.  etc  . 

X 

First  local  of  proc 

X 

L 

2  bit  gc|e|eiei 

0|3  bit  spare 

19  bit  block  address 

1 

P 

eeaeeeeeeeoee] 

T|R|  15  bit  sf  displacement 

0 

12  bit  rubbishjV  bit  Is  link,  bpc  |15  bit  ms  link,  ape 

0 

6|2  bit  gc 

0 

0001 

0|3  bit  spare 

19  bit  block  address 

T 

3  bit  gc 

1 

0001 

V  bit  spare 

19  bit  word  size 

T 

Proc  pointer 
Stack  link 
Program  link 
Last  ws  ptr 
Overhead  word 


The  program  and  stack  links  are  only  stored  at  internal  procedure  calls 
and  refer  to  the  positions  in  the  current  procedure  so  that  this  proc 
can  be  restarted  from  this  workspace.  The  various  state  bits  in  the 
stack  link  arei 

R  *  1  4  current  ws  has  been  loaded. 

T  «1  ♦  current  code  runs  in  T>state. 

P  «1  ♦  current  code  runs  in  privileged  state. 

The  sf  displacement  is  a  word  displacement  from  the  first  local  of  the 
procedure. 

The  program  link  gives  a  codification  of  a  displacement  from  .the  first 
byte  of  the  instruction  block  pointed  to  by  the  codebock  given  by  the 
proc  pointer.  The  formula  for  getting  the  actual  byte  displacement  is: 
apcaV'fbpc-B 

Clearly  the  first  workspace  of  a  process  can  have  no  predecessor  and 
hence  its  first  word  is  zero. 


:  Instructions 
.'Constants 
tShaky  ws  /  zero 


;  Overhead  word 


If  word  2  is  a  pointer  it  is  a  shaky  one  to  a  workspace  suitable  for  this 
code  block ;  this  chain  of  shaky  pointers  is  continued  through  word  1  of 
the  workspace. 


Codeblocks 


L 

2  bit  gc 

0 

0011 

0 

3  bit  spare 

19  bit  block  address 

T 

L 

2  bit  gc 

0 

0100 

0 

3  bit  spare 

19  bit  block  address 

1 

0 

2  bit  gc 

0 

0001 

1 

3  bit  spare 

19  bit  block  address 

T 

Size  of  workspace  required  by  code 

0 

3  bit  gc 

1|0010 

W  bit  spare 

19  bit  word  size«5 

1 

/ 


Character  blocks 


etc 


8  Bit  Byte  2|  8  Bit  Byte  3 

8  Bit  Byte  6|  8  Bit  Byte  1 

3  bit  gc 

1|6011|  4- bit  spare 

19  bit  word  size  |1 

:  Overhead  word 


The  layout  of  characters  here  is  the  indexing  order  j  this  is  consistent 
with  the  Vec  Char  assignments,  instructions,  on  the  other  hand,  are 
readi 


8  Bit  Byte  3|  8  Bit  Byte  2|  8  Bit  Byte  1 1  8  Bit  Byte  6 

-  - - ^ 

least  significant 


Normal  word  Blocks 


etc 


pointer  or  scalar 

X 

3  bit  gc 

1 

8180 

V  bit  spare 

19  bit  word  size 

T 

t  Overhead  word 


Closures 


:Non- locals/zero 
s  Codeblock 
I  Overhead  word 


If  there  are  no  non-locals  the  non-word  can  be  zeroi  the  codeblock 
pointer  may  also  be  an  external  capability  eg  a  codeblock  on  disc. 


Keyed  blocks 


L 

2  bit  gc 

0 

0108 

0 

3  bit  spare 

19  bit  block  address 

T 

L 

2  bit  gc 

0 

0010 

0 

3  bit  spare 

19  bit  block  address 

T 

3  bit  gc 

1 

0101 

4  bit  spare 

19  bit  word  size  «3 

T 

etc 


pointer  or  scalar 

K 

key 

X 

1  3bit  gc|l|01ie 

4  bit  spare  1 19  bit  word  size 

T 

I  Overhead  word 
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Boolean  blocks 


.etc 


Q  R  S  T  U  V  W  X  Y  Z  ....  A  B  C  0  E  F  G  H  IJ  K  L  M  N  0  P 
3  bit  gc[l  jl0U|  bit  spare  1 19  bit  word  size  |7 


Overhead  word 


The  bits  are  ordered  as  given  by  the  alphabetical  ordering  given  above 
starting  from  the  most  significant  bit  of  each  16-bit  word. 


9.3  System_hlock,  the  screen  map  and  buffer  areas 

There  are  three  special  blocks  set  up  at  system  load.  They  are  normal 
Flex  blocks  but  their  position  in  store  means  that  they  are  not  moved  by 
garbage  collection.  The  i/o  buffer  block  is  a  character  block  whose 
pointer  can  be  found  with  the  privileged  21^3  instruction;  slices  of  this 
will  be  used  as  buffers  to  peripherals.  The  screen  block  is  a  boolean 
block,  usually  accessed  in  program  as  a  two  dimensional  array  of  bools ; 
its  pointer  can  accessed  using  the  instruction  2^-4'. 

System_block  is  a  word  block  which  will  be  the  root  of  all  accessible 
blocks  at  garbage  collection.  References  to  elements  of  systemjjlock 
can  be  constructed  using  the  privileged  instruction  217. 

Sy8tem_block  layout 

Words  1  and  2 

-  Error  words  at  failure;  Word  1  also  has  proc  during 
load_int  and  current  work.space  during  scavenge. 

Word  3  -  Size  in  bytes  of  last  demand  for  store  during  garbage 

collection. 

Word  -  Procedure  invoked  by  failure; 

PROC(FAILQUAD  )VOIOfail_proc. 

Word  5  -  Procedure  called  when  demand  for  space  is  not  satisfied 

PROC ( ANY  )ANY  scavenge. 

Word  6  -  Procedure  called  when  calling  a  proc  which  is  external 

capability  .  PROC  VOID  load_proc. 

Word  7  -  Procedure  called  when  calling  a  proc  with  external 

capability  as  codeblock  .  PROC  VOID  Ioad_codeblk. 

Words  8  and  9 

-  Ref  256»Pair  hash.table 
where  Pair  ■  (Shaky  capability,  (Ptr  Pair  or  0)) 

All  external  capabilities  in  mainstore  are  in  hash.table. 

Word  16  -  Procedure  to  read  external  capability,  d_toJt>  accessible 

by  opcode  162. 

Word  11  -  Unused 

Word  12  -  Procedure  called  when  exiting  from  proc  with  zero  link; 

PROC  VOID  endprocess. 
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Words  13  to  28 

-  Flex-interrupt  procedures  (PROC  VOID)  in  priority  order. 
Word  13  -  Keyboard  interrupt. 

Word  IV  -  RS232  interrupt. 

Word  15  -  GPIB  interrupt. 

Word  16  -  Tablet  pointer  interrupt. 

Word  17  -  Winchester  disc  interrupt. 

Word  18  -  Interval  timer  interrupt. 

Word  19  -  Ethernet  RX  interrupt. 

Word  20  -  Ethernet  TX  interrupt. 

Word  21  -  Floppy  disc  interrupt. 

Word  22  -  Speech  interrupt. 

Word  23  -  Breakin  interrupt. 

Words  24-28  unallocated. 


9.4  Exceptions 


Exceptions  raised  by  the  micro-code  have  characteristic  of  pairs  of 
integers,  the  first  being  zero.  Exceptions  raised  by  program  can  have  a 
characteristic  consisting  of  any  word  pair.  In  particular, exceptions 
raised  in  D-state  will  produce  (through  successive  calls  of  faii_proc 
in  system_block )  a  chain  of  data  giving  diagnostic  information  about  the 
exception  and  where  it  occurred.  This  chain  is  a  reference  to  a  six 
word  object,  the  first  four  of  which  is  the  FAILQUAD  given  to  the 
fail_proc  procedure  as  parameter  (cf  workspace  blocks) : 

sFailing  codeblk 
:Failing  sf 
:Posn  of  failure 
sFailing  wspace 


and  the  remaining  two  is  either  a  primitive  exception  or  a  reference  to 
a  similar  object  giving  the  failure  in  an  inner  procedure. 


1 

2  bit  gc  6  6016  6  3  bit  spare 

19  bit  block  address 

T 

p 

6606660666666  |T|R|  15  bit  sf  displacement 

6 

12  bit  rubbish|4  bit  Is  link,  bpc  |1S  bit  ms  link,  ape 

6 

1 12  bit  gc 

6|6661|6|3  bit  spare 

19  bit  block  address 

1 
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Micro-code  exception  pairs 


Error(0,0) 

Fail(0.1) 

Error(0,2) 

Fail(0.3) 

Error(0,'*-) 

Error(0,5) 

Error(0,6) 

Error(0,7) 

Error(0,8) 

Error(0,9) 

Error(0.10) 

Error(0, 11 ) 

Error(0,12) 
Error(0,13) 
Error (0,1V) 
Error(0, 15) 
Fail(0.16) 
Error(0,17) 
Error(0,18) 
Error(0,19) 
Error (0,20) 
Error(0,21 ) 


-  wrong  type  of  value  in  U  i  If  the  value  in  U  is  illegal, 
then  the  exception  pair  will  conne  from  the  illegal. 

-  index  out  of  bounds. 

-  vector  check  fail  (op  code  58). 

-  integer  arithmetic  overflow. 

-  wrong  type  of  block. 

-  a  or  sz  displacements  wrong  in  some  way, usually  too  big 

-  stack  overflow  in  current  work  space. 

-  stack  underflow  in  current  work  space. 

-  attempt  to  access  outside  a  block. 

-  control  value  not  allowed  for  in  Case. 

-  attempt  to  use  a  pointer  of  the  wrong  sort  in  transput. 

-  attempt  to  use  a  privileged  instruction  without 
privilege. 

-  operand  on  tos  is  of  wrong  type. 

-  attempt  to  open  keyed  block  with  wrong  key. 

-  attempt  to  access  locked  block. 

-  attempt  to  dereference  nil. 

-  real  arithmetic  overflow. 

-  illegal  op  code. 

-  attempt  to  dereference  multiple  chars  or  bools. 

-  attempt  to  read  <Hitside  buffer. 

-  label  out  of  scope  in  (^TO. 

-  attempt  to  call  a  non-procedure. 


HCMrn  OMTaoi  sicrr 


Ovirall  Mcurllir  cUssIfleatitii  tf  ikwt  ...JQnAlMfJU^A^ . 

(As  far  at  aossibla  fhU  akaat  ahaultf  cairtala  aaty  awlastiflatf  lafaraa<iaa.  If  It  U  aacassKr  ta  antar 
clatsiflad  iafaraattan,  tka  baa  uacaraad  aast  ba  aarkad  te  iadlcata  tka  dassiflcatiaa  ag  (R)  (C)  ar  (S)  ) 


1.  otic  Rafaraaca  (if  haaaa) 

2.  Origlaatar's  Rafaraaca 
laport  85015 

S.  Agaacp  Rafaraaca 

A.  Raperl  Sacurlty 

Classtficatiaa 

S.  Origlaater's  Cada  (if 

hapaa) 

(.  Rriglaatar  (Carparata  Autker)  Raaa  aad  laMtlaa 

Royal  Slgnala  and  Radar  Eatabltahaant 

Sa.  Spaasarlag  Agaaep*s 

Cada  (if  kaaaa) 

•a.  Spaasarlag  Agaaep  (CaatrKt  Aatkarltr)  Raaa  aad  Lacatlaa 

7.  TitIa 

PcrqFlcx  Firnwar* 


7a.  Titia  la  Faralgn  Laaguagt  (la  tka  cata  af  traastatlaas) 


7b.  frasaatad  at  (far  eaafaraaca  eapari)  Tit  la.  plaea  aad  data  af  caafaraaca 


8.  Autkar  1  Saraaaa,  laltlals 

R(a)  Aatkar  2 

f(b)  Aatkara  ).A... 

10.  Data 

PP.  raf. 

Currie  IF 

Foatcr  JH 

Kdwarda  FU 

11.  Caatract  Rvabar 

12.  Rarlad 

13.  Rrajact 

14.  Otkar  Rafaraaca 

IS.  Otatrlbatiaa  atataaaat 

Uni  tail  tad 


Oaserlptars  (ar  kayaards) 


caatlaaa  aa  saparata  piaca  af  papar 

IbstPKt 

Thia  rapert  daacribaa  tha  Inatruetion  aat  and  ganaral  flrawara  archltacture 
pf  tha  Flax  cooiputor  aa  laplaamitad  ms  tha  XCL  Farq  saorkatatlan 
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